home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0800 / error.inc < prev    next >
Encoding:
Text File  |  1997-04-10  |  5.0 KB  |  113 lines
  1. {
  2.   Error routine used by Pascal Winsock apps.
  3.   Public Domain 1994 by
  4.   Mike Caughran Cedar Island Software  
  5.   71034.2371@compuserve.com
  6. }
  7.  
  8. procedure Error(s : String);
  9. begin
  10.   Write(S,' error : ');
  11.   Case WSAGetLastError of
  12.      WSAEINTR           : writeln('WSAEINTR');
  13.      WSAEBADF           : writeln('WSAEINTR');
  14.      WSAEFAULT          : writeln('WSAEFAULT');
  15.      WSAEINVAL          : writeln('WSAEINVAL');
  16.      WSAEMFILE          : writeln('WSAEMFILE');
  17.      WSAEWOULDBLOCK     : writeln('WSAEWOULDBLOCK');
  18.      WSAEINPROGRESS     : writeln('WSAEINPROGRESS');
  19.      WSAEALREADY        : writeln('WSAEALREADY');
  20.      WSAENOTSOCK        : writeln('WSAENOTSOCK');
  21.      WSAEDESTADDRREQ    : writeln('WSAEDESTADDRREQ');
  22.      WSAEMSGSIZE        : writeln('WSAEMSGSIZE');
  23.      WSAEPROTOTYPE      : writeln('WSAEPROTOTYPE');
  24.      WSAENOPROTOOPT     : writeln('WSAENOPROTOOPT');
  25.      WSAEPROTONOSUPPORT : writeln('WSAEPROTONOSUPPORT');
  26.      WSAESOCKTNOSUPPORT : writeln('WSAESOCKTNOSUPPORT');
  27.      WSAEOPNOTSUPP      : writeln('WSAEOPNOTSUPP');
  28.      WSAEPFNOSUPPORT    : writeln('WSAEPFNOSUPPORT');
  29.      WSAEAFNOSUPPORT    : writeln('WSAEAFNOSUPPORT');
  30.      WSAEADDRINUSE      : writeln('WSAEADDRINUSE');
  31.      WSAEADDRNOTAVAIL   : writeln('WSAEADDRNOTAVAIL');
  32.      WSAENETDOWN        : writeln('WSAENETDOWN');
  33.      WSAENETUNREACH     : writeln('WSAENETUNREACH');
  34.      WSAENETRESET       : writeln('WSAENETRESET');
  35.      WSAECONNABORTED    : writeln('WSAECONNABORTED');
  36.      WSAECONNRESET      : writeln('WSAECONNRESET');
  37.      WSAENOBUFS         : writeln('WSAENOBUFS');
  38.      WSAEISCONN         : writeln('WSAEISCONN');
  39.      WSAENOTCONN        : writeln('WSAENOTCONN');
  40.      WSAESHUTDOWN       : writeln('WSAESHUTDOWN');
  41.      WSAETOOMANYREFS    : writeln('WSAETOOMANYREFS');
  42.      WSAETIMEDOUT       : writeln('WSAETIMEDOUT');
  43.      WSAECONNREFUSED    : writeln('WSAECONNREFUSED');
  44.      WSAELOOP           : writeln('WSAELOOP');
  45.      WSAENAMETOOLONG    : writeln('WSAENAMETOOLONG');
  46.      WSAEHOSTDOWN       : writeln('WSAEHOSTDOWN');
  47.      WSAEHOSTUNREACH    : writeln('WSAEHOSTUNREACH');
  48.      WSAENOTEMPTY       : writeln('WSAENOTEMPTY');
  49.      WSAEPROCLIM        : writeln('WSAEPROCLIM');
  50.      WSAEUSERS          : writeln('WSAEUSERS');
  51.      WSAEDQUOT          : writeln('WSAEDQUOT');
  52.      WSAESTALE          : writeln('WSAESTALE');
  53.      WSAEREMOTE         : writeln('WSAEREMOTE');
  54.      WSASYSNOTREADY     : writeln('WSASYSNOTREADY');
  55.      WSAVERNOTSUPPORTED : writeln('WSAVERNOTSUPPORTED');
  56.      WSANOTINITIALISED  : writeln('WSANOTINITIALISED');
  57.      WSAHOST_NOT_FOUND  : writeln('WSAHOST_NOT_FOUND');
  58.      HOST_NOT_FOUND     : writeln('HOST_NOT_FOUND');
  59.      WSATRY_AGAIN       : writeln('WSATRY_AGAIN');
  60.      TRY_AGAIN          : writeln('TRY_AGAIN');
  61.      WSANO_RECOVERY     : writeln('WSANO_RECOVERY');
  62.      NO_RECOVERY        : writeln('NO_RECOVERY');
  63.      WSANO_DATA         : writeln('WSANO_DATA');
  64.      NO_DATA            : writeln('NO_DATA');
  65.      WSANO_ADDRESS      : writeln('WSANO_ADDRESS');
  66.      NO_ADDRESS         : writeln('NO_ADDRESS');
  67.      EWOULDBLOCK        : writeln('EWOULDBLOCK');
  68.      EINPROGRESS        : writeln('EINPROGRESS');
  69.      EALREADY           : writeln('EALREADY');
  70.      ENOTSOCK           : writeln('ENOTSOCK');
  71.      EDESTADDRREQ       : writeln('EDESTADDRREQ');
  72.      EMSGSIZE           : writeln('EMSGSIZE');
  73.      EPROTOTYPE         : writeln('EPROTOTYPE');
  74.      ENOPROTOOPT        : writeln('ENOPROTOOPT');
  75.      EPROTONOSUPPORT    : writeln('EPROTONOSUPPORT');
  76.      ESOCKTNOSUPPORT    : writeln('ESOCKTNOSUPPORT');
  77.      EOPNOTSUPP         : writeln('EOPNOTSUPP');
  78.      EPFNOSUPPORT       : writeln('EPFNOSUPPORT');
  79.      EAFNOSUPPORT       : writeln('EAFNOSUPPORT');
  80.      EADDRINUSE         : writeln('EADDRINUSE');
  81.      EADDRNOTAVAIL      : writeln('EADDRNOTAVAIL');
  82.      ENETDOWN           : writeln('ENETDOWN');
  83.      ENETUNREACH        : writeln('ENETUNREACH');
  84.      ENETRESET          : writeln('ENETRESET');
  85.      ECONNABORTED       : writeln('ECONNABORTED');
  86.      ECONNRESET         : writeln('ECONNRESET');
  87.      ENOBUFS            : writeln('ENOBUFS');
  88.      EISCONN            : writeln('EISCONN');
  89.      ENOTCONN           : writeln('ENOTCONN');
  90.      ESHUTDOWN          : writeln('ESHUTDOWN');
  91.      ETOOMANYREFS       : writeln('ETOOMANYREFS');
  92.      ETIMEDOUT          : writeln('ETIMEDOUT');
  93.      ECONNREFUSED       : writeln('ECONNREFUSED');
  94.      ELOOP              : writeln('ELOOP');
  95.      ENAMETOOLONG       : writeln('ENAMETOOLONG');
  96.      EHOSTDOWN          : writeln('EHOSTDOWN');
  97.      EHOSTUNREACH       : writeln('EHOSTUNREACH');
  98.      ENOTEMPTY          : writeln('ENOTEMPTY');
  99.      EPROCLIM           : writeln('EPROCLIM');
  100.      EUSERS             : writeln('EUSERS');
  101.      EDQUOT             : writeln('EDQUOT');
  102.      ESTALE             : writeln('ESTALE');
  103.      EREMOTE            : writeln('EREMOTE');
  104.   end;
  105. end;
  106.  
  107. procedure Abort(S : String);
  108. begin
  109.   Error(S);
  110.   Writeln('Program halted.');
  111.   CleanUp;
  112.   Halt(255);
  113. end;